home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / FileTransferTools.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  1.7 KB  |  99 lines  |  [TEXT/MPS ]
  1. {
  2.     FileTransferTools.p
  3.     Pascal Interface to the Connection Manager Tools.
  4.     
  5.     Copyright © Apple Computer, Inc.    1988-90
  6.     All rights reserved
  7. }
  8.  
  9. {$IFC UNDEFINED UsingIncludes}
  10. {$SETC UsingIncludes := 0}
  11. {$ENDC}
  12.  
  13. {$IFC NOT UsingIncludes}
  14.     UNIT FileTransferTools;
  15.     INTERFACE
  16. {$ENDC}
  17.  
  18. {$IFC UNDEFINED UsingFileTransferTools}
  19. {$SETC UsingFileTransferTools := 1}
  20.  
  21. {$I+}
  22. {$SETC FileTransferToolsIncludes := UsingIncludes}
  23. {$SETC UsingIncludes := 1}
  24.  
  25. {$IFC UNDEFINED UsingDialogs}
  26. {$I $$Shell(PInterfaces)Dialogs.p}
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED UsingFileTransfers}
  30. {$I $$Shell(PInterfaces)FileTransfers.p}
  31. {$ENDC}
  32.  
  33. {$SETC UsingIncludes := FileTransferToolsIncludes}
  34. CONST
  35. {    messages for fDEFs        }
  36.     ftInitMsg            =    0;
  37.     ftDisposeMsg        =    1;
  38.     ftSuspendMsg        =    2;
  39.     ftResumeMsg            =    3;
  40.     ftMenuMsg            =    4;
  41.     ftEventMsg            =    5;
  42.     ftActivateMsg        =    6;
  43.     ftDeactivateMsg        =    7;
  44.     ftGetErrorStringMsg    =    8;
  45.     
  46.     ftAbortMsg            =    52;
  47.  
  48.     ftStartMsg            =    100;
  49.     ftExecMsg            =    102;
  50.  
  51.  { messages for validate DefProc                }
  52.  
  53.     ftValidateMsg        =    0;
  54.     ftDefaultMsg        =    1;
  55.     
  56. {    messages for Setup DefProc                }
  57.  
  58.     ftSpreflightMsg        =    0;
  59.     ftSsetupMsg            =    1;
  60.     ftSitemMsg            =    2;
  61.     ftSfilterMsg        =    3;
  62.     ftScleanupMsg        =    4;
  63.     
  64. {    messages for scripting defProc             }
  65.     ftMgetMsg            =    0;
  66.     ftMsetMsg            =    1;
  67.     
  68. {    messages for localization defProc        }
  69.  
  70.     ftL2English            =    0;
  71.     ftL2Intl            =    1;
  72.  
  73. { def type }
  74.  
  75.     fsetType            =    'fset';
  76.     fvalType            =     'fval';
  77.     flocType            =    'floc';
  78.     fscrType            =    'fscr';
  79.     fdefType            =    'fdef';
  80.     fbndType            =    'fbnd';
  81.     fverType            =    'vers';
  82.         
  83.         
  84. TYPE    
  85.     FTSetupPtr        =    ^FTSetupStruct;
  86.     FTSetupStruct    =    PACKED RECORD
  87.         theDialog    :    DialogPtr;
  88.         count        :    INTEGER;
  89.         theConfig    :    Ptr;
  90.         procID        :    INTEGER;
  91.     END;
  92.     
  93. {$ENDC} {UsingFileTransferTools}
  94.  
  95. {$IFC NOT UsingIncludes}
  96.     END.
  97. {$ENDC}
  98.  
  99.